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NETSLAVE = Network Slave Program 16. -Sep-1984 0 13:98 AX-11 Bliss 


=-32 V4.0-742 
14-Sep-1984 12:53: PHONE. eR RCIN NETS 


LAVE .B32;1 


ce 


title "NETSLAVE = Network Slave Program’ 
module netslave 
ident="V04-000') = begin 


' 
LRA RRR RARER RRA REE REE EEE TEER EERE 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


me 
® 
® 
® 
i AND : 
fs ONLY IN ACCORDANCE WITH THE TERMS OF SUCH : 
* 

RWISE MADE AVAILABLE TO ANY * 

ie O THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
‘® ® 
ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 
® 

® 

® 

® 

*® 

® 


poof ole fofolefolololeololeololelololelelolelolelo) 
pelolefeleloloeleleleleleleolelelelelolelelelolo! 


WWWWWAAINWNANIWNIPIPOPINIPONINININIDYD 2 2 OO MK MPH OOO COOCOSCO 
DWNAUE WN $ O OONAUE WN O OONAUE UN OOONAUS Win 


FW OOONAUEWN OO ODNAUESWN HO OODNAUES WN —OOONOU SW 


; 0 

5 0 

; 1 

; 1 

; 1 

; 1 

; 1 

: 1 

; 1 

: 1 1 

: 1 1 

8 1 1 

: 1 1 

: 1 3 

ee 1! 

3 1 1 

: 1 1 

; 1 1 

3 1 1 

3 2 1 

a ) 

> a 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 alameaa OF ITS 
... € 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 

Ro BET 

° t 

: 2 00 1 RRR RRR EERE EERE REE EER 
ee 00 . 3 

er 00 1 

; 3 00 1 

3 H » : Facility: VAX/VMS Telephone Facility, Network Slave Program 

_ 00 1 ! Abstract: This module is the network slave program. When someone 

3 3 00 1! on a remote node wants to talk to someone on our node, 

3 3 00 1! this module acts as the network slave intermediary. 

8 BET 

3 3 00 1 ! Environment: The Life and times of a network slave is restricted to 

; Z st : two controlled cases: 

. °§ 0041 1! 1. The master creates the slave for information-gathering 
eg 0042 1! purposes (e.g., remote directory). The slave exists only 
; ? Opez : to gather information, and dies when the gathering is done. 
s 45 0045 1! 2. The master creates the slave so it can talk to a user 
s #6 0046 1! on the slave's node. The slave provides ONE-WAY 

; 47 0047 1! communication from the master to the user. The 

; re sot : user talks back to the master via a symmetrical slave. 
: 50 0050 1! NOTE that some errors are handled in the slave by simply 
a; 2 0051 1! dying and letting the master worry about it. 

o> itt 1! 

Boi) 0053 1! - 

: ¢¢ Bn3e : Author: Paul C. Anagnostopoulos, Creation Date: 11 December 1980 

; 56 0056 1 ! Modified By: 

3 57 0057 1! 


<2 | 
om 


EOE ee ae 


NETSLAVE = Network Slave Program 1b-sep-1984 9: 13: 93 Ax-11 B ys 205 


Ligs-32 2 P 2 
“Sep-1 PHONE .S BRCIN NETSLAVE .B32; op 


4 
231 (1) 


0038 1! V03-002 BLS0251 Benn Schreiber 8-Dec-1983 

0059 1! Check that we are network process before translating 
Boe} : SYS$NET. 

424 1! V03=001 PCA0044 Paul Anagnostopoulos 26-Mar-1982 
Beez : } Minor changes to convert from process name to user name. 


Be Oe Oe Oe Oe Bee Oe SH Oe BH Se SETH Se Se Se Se Se Se SH Se we Se Se Se Ge Se Ge Se Se Se Ge Se Se Se Se Se Se ae Se Se Se Se Se Se Se Fe Se ae 


9 
N {suave NETSLAVE = Network Slave Program 1$-sep-19 4 05:13:98 AX-11 Ol igaea V4.0-742 Page 
v04-000 Module Declarations 14-Sep-1984 12:53: PHONE ..SRCJNETSLAVE.832;1 
; 68 $069 } Asbttl ‘Module Declarations’ 
; e8 0067 : Libraries and Requires: 
: 70 0069 1 
oer 0070 1 Library ‘sys$library:lib'; 
; i ve : require ‘phonereq'; 
; 7 0401 1! 
: 6 pnts : Table of Contents: 
a 0404 1 
; gw 0405 1 forward routine 
; 0406 1 phn$init_slave: novalue, 
: 80 0407 1 phn$slave_drive: novalue, 
ae 0408 1 phn$slave_directory2: novalue, 
; =68B2 0409 1 phn$slave_verify: novalue, 
; - BS 0410 1 phn$slave_ring_out: novalue, 
; 3 «684 0411 +1 phn$slave_pass_smb: novalue, 
; @6§9 0412 1 phn$write_slave_status: novalue, 
: Hy pelz : phn$read_slave; 
: 88 04615 1! 
3 44 $219 : External References: 
: 91 0418 1 
; 0419 1 external routine ; 
s 93 0420 1 phn$directory Line, 
3; 694 bes! 1 phn$estab_link 
; (95 04 : 1 phn$local—jangle, 
; «296 0423 1 phn$make_pub, 
$ 44 be5¢ : phn$send_smb; 
: 99 0426 1! 
3 is oh $4 : Own Variables: 
: 43 ah : i The following word contains the DECnet logical Link channel number. 
: 104 0431 1 own 
3 + bt 3s : decnet_channel: word; 
: 107 0434 1 ! The following table sets up a correspondence between various PHONE 
; 108 0435 1 ! status codes and the universal code transmitted as part of our network 
3 1%? O38 : preteces. We can't transmit VMS-format status codes because they may 
; ! change. 
s 491 0438 #1 ° 
: 112 0439 1 own sha ; 
3 113 0440 1 status_code_table: vector(10,long]) initial ( ! universal code 
> 114 0441 1 phn$_Linkerror, ' 0 
; 115 0442 1 phn$_ok, 1 
: #116 0443 1 phn$_badspec, ‘ ¢ 
3 V7 0444 1 phn$_cantreach, : 
s 118 0445 1 phn$_needuser, } 4 
3 «119 0446 1 phn$_nopriv, ' 5 
: 120 0447 1 phn$_noproc, } 6 
3: 121 0448 1 phn$_targterm : 7 
> 122 0449 1 phn$~loggedof f, i 8 


{geese V4.0-742 
CINETSLAVE.B32;1 


Bl 
SR 


1 
NE. 


tPHOn 


53:97 


13 


gram 


NETSLAVE = Network Slave Pro 


Module Declarations 


4b AVE 


hn$_unplugged 


et 


———_——— 


N YS.Aye NETSLA 

v04-000 PHNSIN 

a 04 1 
: 18? 438 | 
; 128 454 1 
.. 455 1 
; 130 Be 28 1 
ae PD 0457 1 
3 3 ¢ 0458 1 
i. 2 0459 1 
; 134 0460 1 
; 135 0461 1 
; 1 he 1 
; 13 0465 1 
; 138 0464 1 
3; 199 0465 1 
: 140 0466 1 
> (141 0467 1 
; 146 0468 1 
> 14 0469 1 
; 144 0470 1 
> 145 0471 1 
; 146 0472 1 
: 147 04735 1 
; 148 0474 1 
; 149 0475 1 
; 150 0476 2 
3 33 0477 2 
s We 0478 2 
3 33 0479 2 
> 154 0480 2 
> 155 0481 2 
s; 130 0482 2 
s Vr 0483 2 
; «158 0484 2 
; 59 0485 2 
; 160 0486 2 
: 161 P 0487 2 
g ee 0488 2 
; 165 0489 2 
: 164 0490 2 
; 165 0491 2 
: 166 0492 2 
; 167 0493 2 
: 168 0494 2 
; 169 0495 § 
; 170 0496 

3 7 0497 2 
: 172 P 0498 2 
s Vee 0499 2 
; 174 0500 

3; 6175 0501 

; 176 p26 

3; if 050 

: 178 0504 

; if 0505 

: 180 9206 

; «(181 0507 1 
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- Network Slave Program 1b-se 1984 02:15: AX-11 Bliss- 
SLAVE = Initialize Network Slave 14-Sep-19 4 93:53:97 PHONE . SRC INE 
Rsbttl "PHNSINIT_SLAVE = Initialize Network Slave’ 
i Functional Description: 

This routine is called by the PHONE mainline to see if indeed 
we are a network slave. If not, we just return. If so, then we 
establish a logical Link and invoke the network slave mainline. 


Formal Parameters: 
n 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


' Side Effects: 


global routine phn$init_slave: novalue = begin 


local 
procsts : Long volatile, | 
getjpilst : $ tmlst_dec((items=1), 
Status: long; 


! If we are not a network process, then do not attempt to translate 
' SYSSNET at all. 


rocsts = 0; <e 
itmlst_init(itmlst=getjpilst, 
(itmcod=jpi$_sts,bufadr=procsts)); 


gp ds yep bees ote etjpilst); 
if not .procsts<$bitposition(pcb$v_netwrk),1> then 

return; 
! We will determine if we are a network slave y trying to assign to SYSS$NET. 
! If it fails, we aren't, and we just return. If it succeeds, we are, and 
! we have completed the logical Link. 
status = Sassign(devnam=describe('SYS$NET'), 
: chan=decnet_channel); 
if not .status then 

return; 

! Now we can simply wait for steering messages from the remote node. 
phn$slave_drive(); 


end; 


Page 
: (3) 


N YsLaye NETS 
v04-000 PHNSIN 


00002 *BLKB 
000000006 000000006 000000006 000000006 000000006 000000006 00004 STATUS_CODE TABLE: 
LONG PHNS LINKERROR, PHN$_OK one -BADSPEC, 


cc - Ore rr 


13- R 
LAVE = Network Slave Program ep-1984 
INIT_SLAVE = Init tia Lize Network Slave o7808- 1382 95: 33; 
TITLE 
- IDENT 
-PSECT 
54 45 4E 246 53 59 53 00000 P.AAB: .ASCII 
Bp ORE -BLKB 
00000007 00008 P.AAA: .LON 
00000000° 0000C 


-PSECT 
00000 DECNET_CHANNEL: 
LKB 


000000006 000000006 000000006 000000006 0001C 


-EXTRN 
-PSECT 


93 AX-11 Bliss-32 V se see 
PHONE .SRCJN NETSLAV VE .832;1 


nt Fie) NETSLAVE = Network Slave Program 


SPLITS,NOWRT ,NOEXE ,2 
 ‘aideamtar 


,  F 
-ADDRESS P.AAB 


SOWNS ,NOEXE ,2 


PHNS_CANTREACH, PHN$_N 


PHN$-NOPRIV, PHNS NOPROC. “Bing TARGTERM, 


PHNS_ LOGGEDOFF, SANS _UNPLUGGED 


PHNS_OK, PHNS_ANSWERED 
PHN$~BUSYCALL, PHNS_CANCALL 


PHN$_HELPCAN, PHNS_HUNGUP 

PHNS$—JUSTRANG, "pans _LOGGEDOFF 

PHNS-REJECTED, PHNS_RING 
INGMAIL 

Bane PhNs _BADHELP 


AIL 
ge ie BADSPEC 


PHNS_ROTCONV 
PHN$ ONL YNODE E. PHAS oPHONEBUSY 


MOTEERROR 
PHNS$_TARGTERM, PHNS_UNPLUGGED 
PHNS$_BADTERM, PHNS SHAREDMBX 


PHNS~ INPUTTE TERM. PH PHN$GQ_NODE_NAME 


PHNS$GQ_S 


ScODES ,nownt 2 


Page 


<z | 


Be Se Se Be Be Se Be Oe Oe Be Oe Se BeBe Se Se Se Ge SHS Se Se Se Se SHS Se Se Se Se ae Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ae Se Fe seas Sete eens 


2 eee EE 


En 


WETSt AVE - 
HNSINIT_SLAVE = Initialize Network Slave 


; Routine Size: 73 bytes, Routine Base: $CODE$ + 0000 


Network Slave Program 1b-seo-1984 05:13:98 AX-11 Bliss-32 V4.0-742 


14-Sep-1984 PHONE. SRCIJNETSLAVE .B32; 1 
0000 00 .ENTRY PHNSINIT_SLAVE, Save nothin 
SE 14°98 009 SUBL2. #20, SP ° 
10 AE 04 0000 LRL otsTs 
50 GE i 0008 MOVAB GETIBILST. S$S$ITMBLKPTR 
80 03050004 8F D0 0000 OVL 0659332, ($$ITMBLKPTR)+ 
0 10 aE 3 001 MOVAB PROCSTS, ($$ITMBLKPTR)+ 
8 C 0001 CLRQ (SSITMBLKPTR) + 
—E 7¢€ 0001 CLRQ 0 = (SP) 
7E D4 OOOIA CLRL 0s = (SP) 
Oc AE 9F 000IC PUSHAB GETJPILST 
7E 7C OOO1F CLRQ = (SP) 
ze D4 00 1 LRL. = (SP) 
000000006 00 07 FB 00023 CALLS #7, SYSSGETJPIW 
9 12. AE 99 4 002A BBC 5° PROCSTS+#2, 1 
E 7C 0002F CLRQ =(§P) 
0000" CF 9F 00031 PUSHAB DECNET_CHANNEL 
0000' CF 9F 00035 PUSHAB P. 
000000006 00 4 FB 00039 CALLS ae SYSSASSIGN 
05 0 €9 00040 BLBC = SPAT 
0000v CF 00 FB 00043 CALLS #0, PHNSSLAVE_DRIVE 
04 00048 1$: RET 


Be Se Ge Se Ge Be Se Se Fe Be Fe Ge Fe Se Se Be Fe Be Se Be Be 


5, Se anna geet, De Se Op MACS A, pate 


NETSLAVE N AVE = Network Slave Program 16-Se -1984 02:15: AX-11 Bliss-32 V4.0-74 P 
V *500 P LAVE_DRIVE = Handle Steering Messages 14-Sep-19 4 95:13:93 PHONE. SRCINETSLAVE 83201 at (a5 
0 


Rsbttl "PHNSSLAVE_DRIVE = Handle Steering Messaces' 


wr 


Functional Description: |. ; 
s routine is the ‘mainline’ for the network slave ee ram. 
It waits for steering messages to be sent across the logical 
Link and then acts ag Sy a Most messayes can be sent 
on to the target task, but a few are handled herein. 


i 

i 

i 

i 

i 

i 

! Formal Parameters: 
none 

! Implicit Inputs: 

global data 

! Implicit Outputs: 

global data 
' Returned Value: 
! n 

! 

i 

i 
ie 


Side Effects: | 
| 
| 


global routine phn$slave_drive: novalue = begin 


MEWN —$O OONAOUES WN —-COOONAOULSWNO0OMD wu 


local 


see andes an 2-4 


status: long, 
decnet_iosb: block(8,bytel; 


! Just sit in a loop processing steering messages. 


loop ( 
local 
local_described_buffer(smb_buf ,phn$k_mbxsize); 


| 
! Wait for a steering message from the remote person. If we get 
! a transmission error, just die. 
| 
| 


status = $qiow(efn=phn$k_decnetefn 
chan=.decnet_channel, 
func=io$_readvblk, 
iosb=decnet_iosb, 
pi=.smb_bufCptr] 
p2=.smb~bufLlen]); 

check (.status); 

check (.decnet_iosbL0,0 16,0)); 

smb_bufllen] = .decnet fosb(2,6,16,0); 


! Now we can extract the steering message type code and decide what to 
! do with the SMB. Some routines are passed the steering message 
! descriptor, which they can clobber. 


vuvUvU 


WAI MIWIAIRIRININININININININ 4 2 9 2 SO | SH“ QDOOSCOSCOCSCOCSC OOO OOOO OOOWMWMMmomo 


Ww 
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POPOPOPOPOPIPDPDNDNININOPINPYAININONONYINPYNYPYNYINININPINYININININONYINININININININYDY 2 2 2 9 Os 
AIAINIANINWIWININWNIAI NNN AAAANAIAINIAIAIIPO PPO DIDPOPO NINDS I 9 SS SS SS SS 


PWN 0 OONOAUEWN —(OOONAUES WN —O0ON 


DOO OAUIMAMNMNUIUIUIUIVIUIT ES SS 


selectoneu ch$rchar(.smb_bufCptr]) of set 


Ww 
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m9 
NE TSLAVE NETSLAVE = Network Slave Program 16-Sep-1984 02:1 AX-11 Bliss-32 v4. 
vO4~000 PHNSSLAVE_DRIVE = Handle Steering Messages 1278087 138e 93:53:97 EM ne SheSRe TS Ave asses shea 
: 240 0565 Csmb__directory2): 3 
: ¢3 B28 phn$slave_directory2(); : 
: 8 bees Csmb__slave “verity: hes {fy(smb_but): ; 
; n$s r | : 
24s 0296 ave_verify(smb_bu | 
: SUS $873 a FRE hn$sl (smb_buf) | 
348 b27¢ phn$slave_ring_out (smb_buf); : 
; 249 0574 Csmb__slave_done]: PF 
; $20 0575 Sex it(code=ss$_normal); F 
Ps val : 
382 0377 + eabeaend phn$slave_pass_smb(smb_buf); : 
> 25¢ 0579 ; 
3 a £30 ds $ 
; 256 0581 2 : 
3 2or 0582 1 end; 


~-EXTRN SYS$QIOW, SYSSEXIT 


001¢ 00000 .ENTRY PHNSSLAVE_DRIVE, Save R2,R3,R4 : 0533 
54 000000006 00 9€E 00002 MOVAB LIGSSIGN AC, R4 : 
5E FEFO CE 9E 00009 MOVAB Us 2(S ». SP : 
6E 0100 8F 3¢ O000E 1$: MOVZWL #256, > 0544 
04 AE 08 AE 9E 0001 MOVAB SMB bur A Ole BUF +4 é 
7E 7C 00018 CLRQ  =(SP) > 0554 
7E 7C OOO1A CLRQ (SP) : 
7E 10 AE 3C O00IC MOVZWL SMB_BUF, 76S) ; 
18 AE DD 00020 PUSHL SMB pure ; 
7E 7C 00023 CLRQ SP) : 
F8 AD 99F 00025 PUSHAB DECNET_ 10SB ; 
31 DD 00028 PUSHL F 
7E 0000" CF 3C QOO02A MOVZWL DECNET_CHANNEL, -(SP) 3 
04 DD 0002F PUSHL : 
000000006 00 OC FB 00081 CALLS #12, SYSSQIOW : | 
53 50 DO 00038 MOVL RO, STATUS : 
05 53 £8 00038 ATUS, 3 ; 0555 | 
53 DD 0003E PUSHL STATUS ; 
64 01 FB 00040 CALLS #1, LIBSSIGNAL ; 
07 F8 AD 8 00043 2$ BLBS  DECNET_I0SB, 3 > 0556 
7E F8 AD 3C 00047 MOVZWL DECNET~IOSB, -(SP) ; 
64 01 FB 00048 CALLS #1, LIB : 
6E FA AD BO OO04E 3$: MOVW  DECNET I0SB+2, SMB_BUF : 0557 
52 04 BE 9A 0005 MOVZBL @SMB_BOF+4, R2 : 0563 
OF 52 91 00056 CMPB oR, #15 > 0565 
07 12 00059 BNEQ ; 
0000v CF 00 FB 00058 CALLS #0, PHNSSLAVE_DIRECTORY2 > 0566 
AC 11 00060 4$: BRB 1 : 
07 52 91 006¢ 5$: CMPB R2, #7 : 0568 | 
09 12 0006 BNEQ 6$ ; 
5E DD 00067 PUSHL SP : 0569 
a O0000v CF 01 FB 00069 CALLS #1, PHNSSLAVE_VERIFY ; 
9E 11 0006E BRB ‘ : | 
08 52 91 00070 6$: CMPB R2, #8 : 0571 | 


; Routine Size: 


NETSLAVE = Network Slave Progr 
PHNSSLAVE_DRIVE = Handle Steer 


0000v CF 
0D 


000000006 00 


0000v CF 


151 bytes, Routine Base: 


OOMMDOOOMDOOMO 
om Oo— —-DNrNO—- MO 
nO -— "SO —-o— 10 — 
-@o -@won—-- Won 


COOOCCOOOCOCOOOoOO 


CoOoCooooooooo 


SCODES + 0049 


1982 98:33:37 


7$ 
SP 


*- 
had 


Bn BBTon—zB 
A— VHR— —- MVOH— 


PHNSSLAVE _RING_OUT 


, PHNSSLAVE_PASS_SMB 


uw 


Ea 
POPIPOPOPININININININONONO NNN IPOPONOPONoNoNonponononononononopeferory } 


OOOO O00 0000 00 0009 00 C9 OD 09 SII SI SII NIA AAA AAA AAO 
PWN OODNAUEWN $0 VON AUESWN "OO ONOULSWNH—O” 


oOoooooo°oo 
PARAS AASA AAA OO 
WAANNAANWWIAIPIPINPONININIPONINIDS 2 2 OO ee ee 


vuvuvvD 
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- Network ey: Program 16-Sep-1984 0g: 13: 93 AX-11 BL 
AVE -DIRECTORY2 = Handle Remote Directory 14-Sep-1984 12:5 PHONE.SR 


Bsbttl *PHNSSLAVE_DIRECTORY2 = Handle Remote Directory' 


ao 
oe 
* “ 


“Functtonet Description: 

his steering message routine is called when the slave has been 
created to gather etree sere information for the master. Each 
i time the steering message is received, this routine transmits 
i a directory Line for the next process on its node. The slave 
exists only for the duration of ONE remote directory request. 
i Formal Parameters: 

none 

i Implicit Inputs: 

global data 

i Implicit Outputs: 

global data 

i 
i 
i 
i 
i 
le 


Returned Value: 


Side Effects: 


global routine phn$slave_directory2: novalue = begin 
own 
wild_pid: long initial(-1); 
status: long; 
local_described_buffer(display_line,79); 


! Get the directory Line for the next process on our node. 
status = phn$directory_Line(wild_pid,display_Lline); 


! If we ran out of processes, then send a null Line back to the master. 
!' Otherwise send the directory Line. 


if .status po hn$_ok then 
spl ay. ineLlen] = 0; 
$qiow(efn=phn$k_decnetefn 
chan= .dechet channel, 
+ gt o$ wt} ares ) 
=.display_line(ptr 
thy display_ REM APSE 


return; 


end; 


¢ 10 
NETSLAVE NETSLAVE = Network Slave Program 16-Sep-1984 0g: 13:08 AX-11 Bliss<-32 V4.0-742 
v04-000 PHNSSLAVE_DIRECTORY2 = Handle Remote Directory 14-Sep-1984 12:53:2 PHONE .SRCJNETSLAVE.B32;1 
-PSECT SOWNS,NOEXE,2 
FFFFFFFF QOO02C WILD_PID: 
«LONG <1 
-PSECT S$CODES,NOWRT,2 
0000 00000 ENTRY PHNSSLAVE DIRECTORY2. Save nothing 
5E AC AE 9E 00002 OVAB P 
7E 4F BF 9A 00006 MOVZBL #79 DISPLAY 
04 AE 08 AE 9E OOO0A MOVAB DISPLAY sTINETB. NDISPLAY _LINE+4 
5E DD OOOOF PUSHL ek 
0000' CF 9F 00011 PUSHAB 
0000G CF 02 FB 00015 CALLS We  BHNSDIRECTORY. LINE 
00000000G_ 8F 50 D1 QOOIA CMPL STATUS, #PHNS _OK 
02 13 00021 BEQL 
6E B4 00023 CLRW DISPLAY_LINE 
7E 7C 00025 1$ CLRQ -(SP) 
7E 7C 00027 CLRQ -(SP) 
7E 10 AE 3C 00029 MOVZWL DISPLAY_LINE, (SP) 
18 AE DD 00020 PUSHL DISPLAY_LINE+4 
7E 7C 00030 CLRQ -(SP) 
7E 30 7D 00032 MOVQ #48, - 
7E 0000" CF 3C 00035 MOVZWL * Staal CORANNEL., -(SP) 
04 DD 0003A PUSHL 
00000000G 00 OC FB 0003C CALLS *12, SYS$QI0W 
04 00043 RET 


; Routine Size: 68 bytes, Routine Base: $CODE$ + O00E0 
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NETSLAVE = Network Slave Program 16-Sep-1984 02:15:03 AX-11 Bliss-32 V4.0-742 Page 13 
PHNSSLAVE_VERIFY = Verify Existence of Process 1328 08=1 38s 1 13:93 PHONE. SRCINETSLAVE .B3251 ’ (6) 
6 3 } Rsbttl *PHNSSLAVE_VERIFY = Verify Existence of Process’ 
0640 1 ! Functional Description: ; 
0641 1! This eee message routine is called when the master sends us 
0642 1! a slave_verify steering message. It does this as its first action 
0645 1! when it wants to set up a conversation with a remote user. 
0644 1! We are required to verify the existence of the user and set up 
0645 1! a Link to it. 
0646 1! 
0647 1 ! Formal Parameters: 
0648 1! verify smb The SMB as it was sent to us. This includes: 
etd : } Ve The steering message type code. 
0651 1 ! 2. The home node/user name of the master, 
b62¢ : } followed by an eofrom character. 
pees : Fe The home node/user name of the target. 
0656 1! Implicit Inputs: 
0657 1! global data 
0658 1! ; 
0659 1°! Implicit Outputs: 
0660 1! global data 
0661 1! 
0662 1 ! Returned Value: 
0663 1! non 
0664 1! 
0665 1 ! Side Effects: 
0666 1! 
0667 1 !-- 
0668 1 
0669 1 
per 3 global routine phn$slave_verify(verify_smb): novalue = begin 
0672 2 bind , ; 
0673 2 smb_dsc = .verify_smb: descriptor; 
0674 2 
0675 2 local 
0676 2 status: long, . 
0677 2 work_dsc: descriptor, 
0678 2 op: ref pub, 
0679 2 tp: ref pub; 
0680 2 
0681 2 ee 
0682 2 ! Many routines assume that the first PUB on the chain is ‘‘our PUB", 
0683 2 ! representing this user's phone. In a network slave that doesn't really 
0684 2 ! make sense, but we will create a PUB to represent the master who 
eH ! created us. This PUB will be a reflection of ‘‘our PUB’’ in the master. 
0687 work dectetr 2 = .smb declperd + 1; 
0688 work_dscLlen]) = ch$find_ch(.smb_dscClen],.smb_dsc(ptrJ,eofrom) - .smb_dsc[ptr] - 1; 
0689 status = phn$make_pub(work_dsc,op); 
0690 check (.status); 
od op(pub_v_temporary] = false; 
069 ' Now we can set up a PUB representing the target user on this remote 
0694 ! node that the master wants to talk to. 


Sete Be ee Se Se ee Se Se SH Se ee ee ae 
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N TSLAve NETSLAVE = Network Slave Program a -Sep- 1384 9g: 13: 93 AX-11 Bliss-32 V4.0-742 
v04-000 PHNSSLAVE_VERIFY = Verify Existence of Process 14- Sep- 15 PHONE .SRC JNETSLAVE .B32;1 
He 0695 
7 0696 work Hiatt = yoy se a. ognb _dscClen],.smb_dscCptrjJ,eofrom) + 1; 
374 0697 work_dscLlen] = b_dsc -".work_d dsc(ptri + .smb “dsclptrd; 
375 0698 status = phnsestab. tink wor, _dsc,tp);” 


376 0699 tpCpub_v_temporary] = 


! Finally, we send that status back to the master so it knows how things went. 


return; 


Sete Se Se ee SHS Ge ee ee He 
Ww 
~ 
~ 


0700 

0701 

A s 

070 phn$write_slave_status(.status); 
0704 

0705 

0706 


end; 


001¢ 00000 .ENTRY PHNSSLAVE_VERIFY, Save R2,R3,R4 
SE 10 C2 00002 SUBL2 #16, S 
52 04 AC DO 00005 MOVL VERIFY_SMB, R2 
53 04 Ae DO 00009 OVL  4(R2),7R 
OC AE 01 A3 9E 0000D MOVAB 1(R3). WORK_DSC+4 
63 62 00 3A 00012 LOCC }=«_—«s#0,_«(R2), (RB) 
02 12 00016 BNEQ 1$ 
51 04 00018 CLRL. R11 
51 53 C2 OOO1A 1$: SUBL2 3, R1 
08 AE 51 01 A3 0001D SUBW3 #1, R1, WORK_DSC 
5E DD 00022 PUSHL SP 
OC AE 9F 00024 PUSHAB WORK _DSC 
0000G CF 02 FB 00027 CALLS #2, PHNSMAKE_PUB 
54 50 DO 0002C MOVL RO. STATUS 
09 54 £8 O002F BLBS STATUS, 2$ 
54 DD 00032 PUSHL STATUS 
000000006 00 01 FB 00034 CALLS #1, LIBSSIGNAL 
50 6E DO 00038 28: OVL OP, R 
00FO CO 04 8A 0003E BICB2 #4. 240(R0) 
63 62 00 3A 00043 LOCC #0, (R2), (R3) 
02 12 00047 BNEQ 3$ 
51 D4 00049 CLRL sR 
Oc AE 01 Al 9E 00048 38: MOVAB 1(R1), WORK_DSC+4 
50 62 3C 00050 MOVZWL (R2), 
50 0c AE C2 00053 SUBL WORK DSC+4, RO 
08 AE 50 53 Al 00057 ADDW 3, RO, WORK _DSC 
04 AE 9F 0005C USHAB ia 
OC AE 9F O005F PUSHAB 
00006 CF 02 FB 9006¢ CALLS We X BHNSESTAB_LINK 
54 50 DO 0006 MOVL RO. STATUS 
50 04 AE DO O006A MOVL TP. RO 
00FO CO 04 8A 00066 BICB2 #4. 240(RO) 
54 DD 0007 PUSHL STATU 
0000v CF 01 FB 00075 CALLS #1, PHNSWRITE_SLAVE_STATUS 
04 0007A RET 


; Routine Size: 123 bytes, Routine Base: S$CODE$S + 0124 
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LAVE = Network Slave Program 16-Sep-1984 05:13:08 ene Bliss-32 V4.0-742 Page 15 
SLAVE_RING_OUT = Ring a Remote Phone 14-Sep-1984 12:53: PHONE. SRCIJNETSLAVE.B32;1 (7) 


Rsbetl *PHNSSLAVE_RING_OUT = Ring a Remote Phone' 


! Functional Description: 

This steering message routine is executed when the master sends 
a rang_in message to the slave. The slave is supposed to ring 
the remote person's phone, and return a status to the master. 


Formal Parameters: 
ring smb The address of a descriptor of the SMB as sent 
by the master. We are only interested in the 
first time flag. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
n 


Side Effects: 


global routine phn$slave_ring_out(ring_smb): novalue = begin 


bind 
smb_dsc = .ring_smb: descriptor; 


local 


SNS NNN NN SS SS SSN SSNS 


AUF WR 0 OODNOA UE WIN $$ O ODNAUE WN 0 ODNOUE WN OCONOUSWN—OVOOn MUM 


gyetus: cong 

first_ring_ (ag: byte; 

! Begin by extracting the first time flag from the steering message. 
first_ring_flag = ch$rchar(ch$find_ch(.smb_dscClen],.smb_dsc(ptr],eofrom)+1); 


! Now we can actually ring the person's phone. Call a routine to do this, 
! and send the resulting status back to the master. 


status = phn$local_jangle(..phn$gq_pubhead(0],.first_ring_flag); 
phn$write_slave_status(.status); 


return; 


foaloleleolel ol ele ole) eo) ale) ale) ww) ale ela ole olololeloleleolelolelelelelelolelelelololelolelolololo mm: ) 4 


= PRIMIPIPIPININPIPININIPYINPODININININIPINPONINONYDY) 9 9 9 9 SS SS Se 


DPA UI & 


end; 


0004 00000 -ENTRY PHNSSLAVE_RING_OUT, Save R2 ; 0733 
50 04 AC 00 00002 MOVL RING_SMB, RO ; 0736 
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N save NETSLAVE = Network Slave Program 18-Sep-1984 02:1 
v04-000 PHNSSLAVE_RING_OUT = Ring a Remote Phone 14-Sep-1984 12:5 

046 B80 60 BY, pone LOCC 

12 8 B BNEQ 

Be 00D CLRL 

32 01 Al 90 QOOOF 1$: MOVB 
E 52 9A 00013 MOVZBL 

0000G DF DD 00016 PUSHL 
0000G CF oF FB QOO1A CALLS 

DD OOOI1F PUSHL 
0000v CF 01 FB Ba0s) CALLS 

04 00026 ET 


; Routine Size: 39 bytes, Routine Base: SCODES + 019F 


AX-11 Bliss-32 V4.0-742 
PHONE. SRCJNETSLAVE.832;1 


#0, (RO), a4(RO) 


FIRST_RING_FLAG 
RING_FCAG, =(SP) 
Q_PUBHEAD 
NSLOCAL _JANGLE 


PHNSWRITE_SLAVE_STATUS 
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AVE = Network Slave Program 16-Sep-1984 0g: 13:98 AX-11 Bliss-32 V4.0-742 Page 17 P 
LAVE_PASS_SMB = Pass SMB on to Process 14-Sep-1984 12:53: PHONE. SRC JNETSLAVE.B32;1 (8) V 


Rsbttl "PHNSSLAVE_PASS_SMB = Pass SMB on to Process’ 


i Functional Description: 


Formal Parameters: 
pass_smb 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine phn$slave_pass_smb(pass_smb): novalue = 


bind ‘ 
smb_dsc = .pass_smb: descriptor; 
local 
status: long, 
char_ptr: long, 


tp: ref pub 
abx_tosb: block(8,byte); 


! We can just send the SMB to the target user via its receive mailbox. 
! We'll do it ourselves, rather than calling PHNSSEND_SMB, so we don't 
! have to split apart the SMB just to have it reassembled. 


tp = ..phn$gq_pubhead(0); 

status = Salou chens Set out w_channel) 
func=io$_writevblk + io$m_now, 
jiosb=mbx_iosb, 
p}s-smp_dsctotr) 
p2=.smb_dscLlen]); 

check (.status); 

check (.mbx_iosbl0,0,16,0)); 


return; 


end; 
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This steering message routine handles all those steering messages 
that do not require any special action on the part of the 
We simply need to pass the SMB on to the target user. 


Address of descriptor of SMB. 


slave. 


begin 


Gale Gl UT i Sa ss. F 


| NETSLAVE NETSLAVE = Network Slave Program 1}. Sep-19 :15: AX-11 Bliss-32 V4.0-742 Page 18 | P 
V ~600 PHNSSLAVE_PASS_SMB = Pass SMB on to Process 14- 30071382 95:13:93 PHONE. SRC JNETSLAVE .B32;1 (8) | 
0004 00000 -ENTRY PHNSSLAVE PAs _SMB, Save R2 : 0781 
52 000000006 00 9 900 MOVA BSSIG : 
2 C2 0000 SUBL : 
04 AC DO 0000 MOVL PASS + 0784 
51 00006 DF D0 001 MOVL BPRS. PUBMEAD , TP > 0797. 
— 7C 0001 CLRO = = (SP) : 0802 
ze 7C 00017 CLRQ =(SP) : 
7E 60 3C 00019 MOVZWL (RO), =(SP) : 
04 Ad bb 0001¢ PUSHL  4(ROS : 
7E 7C OOO1F CLRQ. = (SP) : 
20 AE 9F 00021 PUSHAB MBX_IOS : 
7E 0 8F 3A 0024 MOVZBL #112, -(SP) : 
7E OOF4 C1 3C 00028 MOVZ2WL 244(fP), -(SP) : 
7E D4 0002D CLRL =(SP) : 
000000006 00 OC FB O00¢F CALLS #12, SYS$QI0W : 
05 50 £8 00036 LBS STATUS, 1$ ; 0803) 
50 DD 00039 PUSHL STATUS : 
62 01 FB 00038 CALLS #1, LIBSSIGNAL : 
06 6 Es OOO3E 1$: LBS § MBX_IOSB, 2$ > 0804 
7E 6— 3C 00041 MOVZWL MBX~I0SB, -(SP) ; 
62 01 FB 00044 CALLS #1, LIBSSIGNAL ; 
04 00047 2$ RET F 


0808. 
; Routine Size: 72 bytes, Routine Base: $CODE$S + 01C6 
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N {suave NETSLAVE = Network Slave Program 1% -$ e0-19 4 t 98: 13: 93 AX-11 Bliss-32 V4.0-74 
v04-000 PHNSWRITE_SLAVE_STATUS = Send Status Back to Ma 12: 320-19 :5 PHONE. SRCJNETSLAVE. B33, 1 
: £88 pe08 i Rsbttl *PHNSWRITE_SLAVE_STATUS = Send Status Back to Master’ 

: 491 0811 1 i "Funct ional Description: 

; 49 pets 1: This Little routine can be called to network slave routines to send 
: re Saiz : a status back to the master. 

: 495 0815 1 | Formal Parameters: 

: $38 bai8 : phone_status VMS-format status to send to the master. 

: 498 0818 1 ' Implicit Inputs: 

: ro + hs : global data 

: 501 08 1 1! Implicit Outputs: 

3 206 8 ¢ : global data 

: 304 0824 Returned Value: 

; non 

s 306 0826 1! 

3 rata +t H4 : d Side Effects: 

: 509 0829 1 i- 

: 510 0830 1 

: $11 0831 1 

3 216 oes § global routine phn$write_slave_status(phone_status): novalue = begin 

: 514 0834 2 local 

3 319 0835 2 universal_status: byte, 

: 218 +t § status: long; 

: 518 0838 2 

; 519 0839 2 ! Because we don't want to use VMS-format status codes in our protocol, 

: 520 0840 2 : must translate ae status to a universal protocol status. This is pany 

3 el 0841 2! by alg it up in the status table and using the index as the universal 
: 256 bees Ss! i status. f we don't find it, just use code 0 (anl$_linkerror). 

3 526 0844 2 universal_status = 0; 

s 525 0845 incru i from 0 to gst tecurteutotete., code_table)/4-1 do 

:; 526 0846 f .phone_status eqlu .statuS_code_tableL.i] then ( 

s Ser 0847 universal _status z i; 

BB BRE enteton 

> 530 0850 ; i 

; 531 0851 ! Write the universal status over the logical Link. Die if we can't do that, 
; 236 bees ' and let the master worry about completion of the 1/0. 

: 534 P 0854 status = $qiow(efn=phn$k_decnetefn 

s 535 P 0855 chan=.decnhet_channel, 

; 536 P 0856 func=io$_writevblk, 

: 237 F + t¥4 pl=universal_ status, 

: 238 0839 check tseomsit ' 

: 541 0861 return; 

; 266 Bag 

s 56 0863 1 end; 


N SLANE 
v04-000 


; Routine Size: 


NETSLAVE = Network Slave Program 


PHNSWRITE_SLAVE_STATUS = Sen 


5E 


0000'CF40 
6E 


09 


7E 
7E 


000000006 00 
09 


000000006 00 


71 bytes, Routine Base: 


0098 000 
04 § 000 
of 4 0000 
D4 0000 
04 ag D1 00009 1$: 
9 {5 001 
° 90 0001 
A BS 
go Sa 
B 18 QO0IC 
— 7¢ BA 056 3$: 
7—E 7C O85 
01 DD 00022 
14 AE OF B0057 
7E 7C 00027 
30 7D 00029 
0000' CF 3C 0002C 
04 DD 00031 
OC FB 00033 
50 £8 OO03A 
50 DD 00030 
01 FB 0003F 
04 00046 4$ 


SCODES + O20E 


kK 10 
gr tus Back to Ma Jiekepetone SSie8.07 — YoNone. BheShes Suave asec 


PHNSWRITE_SLAVE_STATUS, Save nothing 
UNI VERSAL_STATUS 

PHONE _STATUS, STATUS_CODE_TABLELI] 
J, UNIVERSAL STATUS 


UNIVERSAL_STATUS 
=(SP) 


#48, -(SP) 
DECNET_CHANNEL , -(SP) 
#12, SYS$QI0W 

STATUS, 4$ 


STATUS 
#1, LIBSSIGNAL 
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NETSLAVE NETSLAVE = Network Slave Program 1b-Se -1984 02:15: AX-11 Bliss-32 V4.0-74 P 1] 
V 5600 PHNSREAD_SLAVE = Read Data trom Logical Link 12-8 08-1 3b 1 13:93 PHONE. ERCINETSLAVE BSo—1 age 48) 


; ete peee ! Rsbttl *"PHNSREAD_SLAVE = Read Data from Logical Link’ 

: 547 0866 1 / Functional Description: 

> 548 0867 1! his routine is not actually part of the network slave program, but 
; 549 0868 1! it belongs in this module. It is called by the master to read 

; 229 +494 ! } data sent over the logical Link by the slave. 

: 228 0871 1 ! Formal Parameters: 

; 3 bas 1! channel The channel number of the logical Link. 

> 554 08735 1! buffer Address of descriptor of buffer. We set the Length. 
: 22? paee ! status_flag A boolean, true if we are reading a status code. 
: 557 0876 1 / Implicit Inputs: 

cia Dees hd eee 

: 560 0879 1‘ Implicit Outputs: 

; 20) paet : global data 

: 268 0882 1 ' Returned value: 

: 208 tt4 ! phn$_remoteerror Error occured while reading data. 

3 366 0885 i Side Effects: 

: 568 0887 1 i-- 

; 569 0888 1 

3 370 0889 1 

: 27) baat § global routine phn$read_slave(channel,buffer,status_flag) = begin 

: 573 0892 2 bind 

: are paaz $ buffer_dsc = .buffer: descriptor; 

: 576 0895 2 Local 

; 577 0896 2 status: long, 

: 378 +334 § decnet_iosb: block(8,byte]; 

: 580 0899 2 

3 38! 44 § ! Read the data from the slave. 

: 583 P 0902 2 status = S$qiow(efn=phn$k_decnetefn, 

; 584 P 0903 2 chan=.channel, 

; 585 P 0904 § func=io$_readvblk, 

; 586 P 0905 iosb=decnet_iosb, 

: 587 P 0906 2 pls. buf ter_dsci ptr) 

: 388 0907 ¢ p2=.buffer_dscClen}); 

; ra 3444 § ! Make sure the read went OK. If not, return a failure status. 

; 236 0911 2 if not .status or not .decnet_iosb[0,0,16,0] then 

: eer b3i§ ; return phn$_remoteerror; 

: 595 0914 ! We have to do different things depending upon whether this is a status 
: 208 344 ! we read or just data. 

: 296 pale if .status_flag then ( 

: 600 0919 ! We just read a universal status, defined as part of the PHONE 
; 601 0920 ' protocol. We want to translate it back to a VMS-format status 
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NETSLAVE NETSLAVE = Network Slave Progra 16-Sep-1984 AX-11 Bliss-32 V4.0-742 Page 22 F 
Vv *500 PHNSREAD_SLAVE = Read Data Fon" Logical Link 14-$ 5-19 38 93: 43: 9 PHONE .S ROI NETSLAVE .B32; 1 ’ 185 NV 
; 60 0921 ! using the status code table. 
60 0982 . 
: 604 09 bind | 
3 oR? 82 : universal_status = .buffer_dsc(ptrj: byte; 3 
: 607 82 § buffer ogee ten)” f 
3 ons 43 4 -buffer_dsc(ptr] = M ccutun, pete. tebtel smtenreal, shamenle 
; 610 0929 ) else 
: 8h 9931 1 tee feet seme d 
5 ! "s just some data we read. 
: Big 0952 ' i | 
3 614 09 buffer_dscClen] = .decnet_iosb(2,0,16,0); ’ 
3; 615 0934 
; 616 0935 return phn$_ok; 
: 617 0936 
; 618 0937 1 end; | 
0004 00000 -ENTRY PHNSREAD_SLAVE, Save R2 : 0890 | 
SE 08 C2 00002 SUBL2 #8 ; 
52 08 AC 00 00005 MOVL BUFFER, R2 ; 0893 | 
7E 7C 00009 CLRQ = = (SP) > 0907 | 
7E 7C 0000B CLRQ = =(SP) : | 
7E 6 3C 0000D MOVZWL (R2), =-(SP) é 
04 A2 DD 00010 PUSHL 4(R25 : 
7E 7C 00013 CLRQ -(SP) 3 | 
20 AE 9F 00015 PUSHAB DECNET_IOSB ; | 
31 dd 00018 PUSHL #49 : 
04 AC oD OOOIA PUSHL CHANNEL 3 
04 DD 0001D PUSHL #4 - 
00000000G 00 OC FB OOO1F CALLS Ate SYS$Q10W - 
03 50 £9 00026 BLBC atus. IS. ; 0911) 
08 6E €E8 00029 BLBS SECNES 2$ 3 
50 00000000G 8F »? poss 1$: nove #PHNS TREMOTEERROR, RO ; 0912 
13 0c AC €9 00034 2$: BLBC STATUS_FLAG, 3$ 3; 0917 
50 04 A2 D0 00038 MOVL 4(R2), RO : 0924 
62 04 B0 0003C MOVW #4, (R2) > 0926 
50 60 9A 0005F MOVZBL (RO), RO 3; 0927 
04 B2 0000'CF40 00 9k MOVL STATUS_CODE_TABLECROJ, @4(R2) 3 
04 11 0004 BRB 3; 0917) 
62 02 AE BO 00048 3$: MOVW DECNET_IOSB+2, (R2) : 0933 | 
50 00000000G 8F DO OO04F 4$: MOVL #PHNS_OK, RO : 0935 | 
04 00056 RET : 0937 | 


; Routine Size: 87 bytes, Routine Base: S$CODE$S + 0255 Q 


619 0938 #1 
620 0939 0 end eludom 
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N {Suave NETSLAVE = Network Slave Program 16-Sep-1984 t 98: 13: 93 AX-11 Bliss-32 V4.0-742 
v04-000 PHNSREAD_SLAVE = Read Data from Logical Link 14-Sep 51984 75 PHONE .SRCJNETSLAVE .B32;1 
-EXTRN LIBSSIGNAL 

H PSECT SUMMARY 

i Name Bytes Attributes 

: SOWNS 48 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SPLITS 16 NOVEC, *NOWRT, RD ,NOEXE,NOSHR, LCL, REL, fON,NOPIC,ALIGN(2) 

; SCODES 684 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

H Library Statistics 

5 op a ee Oy ) 0 gaan Symbols ocoeeeee Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 24 0 1000 00:01.4 

3 COMMAND QUALIFIERS 

é BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NETSLAVE/OBJ=OBJ$:NETSLAVE MSRC$:NETSLAVE/UPDATE=(ENH$:NETSLAVE) 
Size: 684 code + 64 data bytes 
Run Time: 00:12.8 


Elapsed Time: 00:48.2 
Lines/CPU Min: 440 
,onenes/CPU-Hies 33792 
penecy Used: 123 pages 
Compilation Complete 
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